home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / p / pofo / sprachen / pbasic / pbas30 / bday.bas < prev    next >
Encoding:
BASIC Source File  |  1991-08-22  |  555 b   |  28 lines
  1. 'Thanks to BJ Gleason for PBASIC21 !
  2. 'Transposed by,..
  3. ' John Fraser 76256,356
  4. cls
  5. locate 4,8
  6. print " You're too damn old !"
  7. box 3,5,5,31,1
  8. print ""
  9. print ""
  10. for I=1 to 99
  11. read a
  12. read b
  13. if b=999then goto 2000
  14. if a=999 then goto 2000
  15. c = b/2 'the "2" controls tempo
  16. sound a,c
  17. next I
  18. 400data 52,25,52,25,54,50,52,50
  19. 410data 57,50,56,200
  20. 420data 52,25,52,25,54,50,52,50
  21. 430data 41,50,57,200
  22. 440data 52,25,52,25,62,50,60,50
  23. 450data 57,50,56,50,54,150
  24. 460data 61,25,61,25,60,50
  25. 470data 57,50,41,50,57,200
  26. 480data 999,999
  27. 2000system=
  28.